home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #15 / Monster Media Number 15 (Monster Media)(July 1996).ISO / prog_c / cuj0696.zip / DWYER.ZIP / QFLOAT / QTENS.H < prev    next >
Text File  |  1996-02-25  |  15KB  |  376 lines
  1. #if WORDSIZE == 16
  2. #define NTEN 12
  3. #define MINNTEN -4096
  4. #define MAXNTEN 4096
  5.  
  6. #if NQ < 13
  7. #define NTT 12
  8. static short qtens[NTEN+1][NTT] = {
  9. /* 4096 */
  10. {0x0000,0x7527,0x0000,0xc460,0x5202,0x8a20,0x979a,0xc94c,
  11. 0x153f,0x804a,0x4a92,0x6576,},
  12. /* 2048 */
  13. {0x0000,0x5a94,0x0000,0x9e8b,0x3b5d,0xc53d,0x5de4,0xa74d,
  14. 0x28ce,0x329a,0xce52,0x6a32,},
  15. /* 1024 */
  16. {0x0000,0x4d4a,0x0000,0xc976,0x7586,0x8175,0x0c17,0x650d,
  17. 0x3d28,0xf18b,0x50ce,0x526c,},
  18. /* 512 */
  19. {0x0000,0x46a5,0x0000,0xe319,0xa0ae,0xa60e,0x91c6,0xcc65,
  20. 0x5c54,0xbc50,0x58f8,0x9c66,},
  21. /* 256 */
  22. {0x0000,0x4353,0x0000,0xaa7e,0xebfb,0x9df9,0xde8d,0xddbb,
  23. 0x901b,0x98fe,0xeab7,0x851e,},
  24. /* 128 */
  25. {0x0000,0x41aa,0x0000,0x93ba,0x47c9,0x80e9,0x8cdf,0xc66f,
  26. 0x336c,0x36b1,0x0137,0x0235,},
  27. /* 64 */
  28. {0x0000,0x40d5,0x0000,0xc278,0x1f49,0xffcf,0xa6d5,0x3cbf,
  29. 0x6b71,0xc76b,0x25fb,0x50f8,},
  30. /* 32 */
  31. {0000000,0040153,0000000,0116705,0126650,0025560,
  32. 0132635,0170040,0000000,0000000,0000000,0000000,},
  33. /* 16 */
  34. {0000000,0040066,0000000,0107033,0144677,0002000,
  35. 0000000,0000000,0000000,0000000,0000000,0000000,},
  36. /* 8 */
  37. {0000000,0040033,0000000,0137274,0020000,0000000,
  38. 0000000,0000000,0000000,0000000,0000000,0000000,},
  39. /* 4 */
  40. {0000000,0040016,0000000,0116100,0000000,0000000,
  41. 0000000,0000000,0000000,0000000,0000000,0000000,},
  42. /* 2 */
  43. {0000000,0040007,0000000,0144000,0000000,0000000,
  44. 0000000,0000000,0000000,0000000,0000000,0000000,},
  45. /* 1 */
  46. {0000000,0040004,0000000,0120000,0000000,0000000,
  47. 0000000,0000000,0000000,0000000,0000000,0000000,},
  48. };
  49.  
  50. static short qmtens[NTEN+1][NTT] = {
  51. /* -4096 */
  52. {0x0000,0x0ada,0x0000,0xa6dd,0x04c8,0xd2ce,0x9fde,0x2de3,
  53. 0x8123,0xa1c3,0xcffc,0x2030,},
  54. /* -2048 */
  55. {0x0000,0x256d,0x0000,0xceae,0x534f,0x3436,0x2de4,0x4925,
  56. 0x12d4,0xf2ea,0xd2cb,0x8264,},
  57. /* -1024 */
  58. {0x0000,0x32b7,0x0000,0xa2a6,0x82a5,0xda57,0xc0bd,0x87a6,
  59. 0x0158,0x6bd3,0xf698,0xf53f,},
  60. /* -512 */
  61. {0x0000,0x395c,0x0000,0x9049,0xee32,0xdb23,0xd21c,0x7132,
  62. 0xd332,0xe3f2,0x04d4,0xe731,},
  63. /* -256 */
  64. {0x0000,0x3cae,0x0000,0xc031,0x4325,0x637a,0x1939,0xfa91,
  65. 0x1155,0xfefb,0x5308,0xa23e,},
  66. /* -128 */
  67. {0x0000,0x3e57,0x0000,0xddd0,0x467c,0x64bc,0xe4a0,0xac7c,
  68. 0xb3f6,0xd05d,0xdbde,0xe26d,},
  69. /* -64 */
  70. {0x0000,0x3f2c,0x0000,0xa87f,0xea27,0xa539,0xe9a5,0x3f23,
  71. 0x98d7,0x47b3,0x6224,0x2a20,},
  72. /* -32 */
  73. {0x0000,0x3f96,0x0000,0xcfb1,0x1ead,0x4539,0x94ba,0x67de,
  74. 0x18ed,0xa581,0x4af2,0x0b5b,},
  75. /* -16 */
  76. {0x0000,0x3fcb,0x0000,0xe695,0x94be,0xc44d,0xe15b,0x4c2e,
  77. 0xbe68,0x7989,0xa9b3,0xbf71,},
  78. /* -8 */
  79. {0x0000,0x3fe6,0x0000,0xabcc,0x7711,0x8461,0xcefc,0xfdc2,
  80. 0x0d2b,0x36ba,0x7c3d,0x3d4d,},
  81. /* -4 */
  82. {0x0000,0x3ff3,0x0000,0xd1b7,0x1758,0xe219,0x652b,0xd3c3,
  83. 0x6113,0x404e,0xa4a8,0xc155,},
  84. /* -2 */
  85. {0x0000,0x3ffa,0x0000,0xa3d7,0x0a3d,0x70a3,0xd70a,0x3d70,
  86. 0xa3d7,0x0a3d,0x70a3,0xd70a,},
  87. /* -1 */
  88. {0x0000,0x3ffd,0x0000,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,
  89. 0xcccc,0xcccc,0xcccc,0xcccd,},
  90. };
  91.  
  92. #else
  93.  
  94. #define NTT 24
  95. static short qtens[NTEN+1][NTT] = {
  96. /* 4096 */
  97. {0x0000,0x7527,0x0000,0xc460,0x5202,0x8a20,0x979a,0xc94c,
  98. 0x153f,0x804a,0x4a92,0x6576,0x1fb2,0x444e,0x2267,0xdd5c,
  99. 0xf7c9,0x45f2,0x2a3f,0xfff0,0xd1d2,0xe184,0x69b1,0xea39,},
  100. /* 2048 */
  101. {0x0000,0x5a94,0x0000,0x9e8b,0x3b5d,0xc53d,0x5de4,0xa74d,
  102. 0x28ce,0x329a,0xce52,0x6a31,0x97bb,0xebe3,0x034f,0x7715,
  103. 0x4ce2,0xbcba,0x1964,0x8b21,0xc11e,0xb962,0xb1b6,0x1b94,},
  104. /* 1024 */
  105. {0x0000,0x4d4a,0x0000,0xc976,0x7586,0x8175,0x0c17,0x650d,
  106. 0x3d28,0xf18b,0x50ce,0x526b,0x9882,0x7524,0x9b0f,0xd6f4,
  107. 0xb6d2,0x7bd1,0xc61c,0x2530,0x69a5,0xc329,0xf9af,0x4a9c,},
  108. /* 512 */
  109. {0x0000,0x46a5,0x0000,0xe319,0xa0ae,0xa60e,0x91c6,0xcc65,
  110. 0x5c54,0xbc50,0x58f8,0x9c65,0x8398,0x1d13,0x4cba,0x422d,
  111. 0x38ea,0x3584,0xcde4,0x0b9a,0x1d7d,0x634d,0xf2d8,0x74a2,},
  112. /* 256 */
  113. {0x0000,0x4353,0x0000,0xaa7e,0xebfb,0x9df9,0xde8d,0xddbb,
  114. 0x901b,0x98fe,0xeab7,0x851e,0x4cbf,0x3de2,0xf98a,0xae78,
  115. 0x0c7f,0xea81,0xc788,0x5a6b,0x43a2,0xa6c4,0x95b8,0xccd6,},
  116. /* 128 */
  117. {0x0000,0x41aa,0x0000,0x93ba,0x47c9,0x80e9,0x8cdf,0xc66f,
  118. 0x336c,0x36b1,0x0137,0x0234,0xf3fd,0x7b08,0xdd39,0x0bc3,
  119. 0xc54e,0x3f40,0xf7e6,0x424b,0xa54f,0x8040,0x0000,0x0000,},
  120. /* 64 */
  121. {0x0000,0x40d5,0x0000,0xc278,0x1f49,0xffcf,0xa6d5,0x3cbf,
  122. 0x6b71,0xc76b,0x25fb,0x50f8,0x0800,0x0000,0x0000,0x0000,
  123. 0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,0x0000,},
  124. /* 32 */
  125. {0000000,0040153,0000000,0116705,0126650,0025560,
  126. 0132635,0170040,0000000,0000000,0000000,0000000,
  127. 0000000,0000000,0000000,0000000,0000000,0000000,
  128. 0000000,0000000,0000000,0000000,0000000,0000000,},
  129. /* 16 */
  130. {0000000,0040066,0000000,0107033,0144677,0002000,
  131. 0000000,0000000,0000000,0000000,0000000,0000000,
  132. 0000000,0000000,0000000,0000000,0000000,0000000,
  133. 0000000,0000000,0000000,0000000,0000000,0000000,},
  134. /* 8 */
  135. {0000000,0040033,0000000,0137274,0020000,0000000,
  136. 0000000,0000000,0000000,0000000,0000000,0000000,
  137. 0000000,0000000,0000000,0000000,0000000,0000000,
  138. 0000000,0000000,0000000,0000000,0000000,0000000,},
  139. /* 4 */
  140. {0000000,0040016,0000000,0116100,0000000,0000000,
  141. 0000000,0000000,0000000,0000000,0000000,0000000,
  142. 0000000,0000000,0000000,0000000,0000000,0000000,
  143. 0000000,0000000,0000000,0000000,0000000,0000000,},
  144. /* 2 */
  145. {0000000,0040007,0000000,0144000,0000000,0000000,
  146. 0000000,0000000,0000000,0000000,0000000,0000000,
  147. 0000000,0000000,0000000,0000000,0000000,0000000,
  148. 0000000,0000000,0000000,0000000,0000000,0000000,},
  149. /* 1 */
  150. {0000000,0040004,0000000,0120000,0000000,0000000,
  151. 0000000,0000000,0000000,0000000,0000000,0000000,
  152. 0000000,0000000,0000000,0000000,0000000,0000000,
  153. 0000000,0000000,0000000,0000000,0000000,0000000,},
  154. };
  155.  
  156. static short qmtens[NTEN+1][NTT] = {
  157. /* -4096 */
  158. {0x0000,0x0ada,0x0000,0xa6dd,0x04c8,0xd2ce,0x9fde,0x2de3,
  159. 0x8123,0xa1c3,0xcffc,0x2030,0x5d02,0x44e0,0x91ba,0x5e2d,
  160. 0x7403,0x972f,0x6f2b,0x04e6,0x63ac,0x16d5,0x1215,0x9834,},
  161. /* -2048 */
  162. {0x0000,0x256d,0x0000,0xceae,0x534f,0x3436,0x2de4,0x4925,
  163. 0x12d4,0xf2ea,0xd2cb,0x8263,0xca5c,0xbc77,0x4bd9,0x71aa,
  164. 0xd590,0x46c7,0x4249,0xdddd,0xc0df,0xbb0d,0x6f2c,0x0584,},
  165. /* -1024 */
  166. {0x0000,0x32b7,0x0000,0xa2a6,0x82a5,0xda57,0xc0bd,0x87a6,
  167. 0x0158,0x6bd3,0xf698,0xf53e,0x94d1,0xb235,0x7c32,0xc0ea,
  168. 0xff37,0x55a2,0xddcd,0x5191,0xa70f,0x9e33,0x9aa9,0x6270,},
  169. /* -512 */
  170. {0x0000,0x395c,0x0000,0x9049,0xee32,0xdb23,0xd21c,0x7132,
  171. 0xd332,0xe3f2,0x04d4,0xe731,0x7d62,0x209b,0x6a93,0xd4c9,
  172. 0x4a9d,0xa069,0x3e0c,0xfefd,0xe89b,0x01e5,0x1068,0xe0e4,},
  173. /* -256 */
  174. {0x0000,0x3cae,0x0000,0xc031,0x4325,0x637a,0x1939,0xfa91,
  175. 0x1155,0xfefb,0x5308,0xa23e,0x2ed2,0x7766,0xe8cc,0x9b03,
  176. 0x5377,0x08b1,0x648f,0x7a73,0x0e52,0xe6e7,0x4360,0x55f4,},
  177. /* -128 */
  178. {0x0000,0x3e57,0x0000,0xddd0,0x467c,0x64bc,0xe4a0,0xac7c,
  179. 0xb3f6,0xd05d,0xdbde,0xe26c,0xa606,0x3461,0xfffa,0x4ed7,
  180. 0x75fc,0x49f2,0x7952,0xf2f3,0xa45f,0x9009,0xf3c9,0xee49,},
  181. /* -64 */
  182. {0x0000,0x3f2c,0x0000,0xa87f,0xea27,0xa539,0xe9a5,0x3f23,
  183. 0x98d7,0x47b3,0x6224,0x2a1f,0xee40,0xd90a,0xab31,0x0e12,
  184. 0x8b5d,0x938c,0xfb3f,0x6f20,0x3147,0x025d,0x1129,0xe492,},
  185. /* -32 */
  186. {0x0000,0x3f96,0x0000,0xcfb1,0x1ead,0x4539,0x94ba,0x67de,
  187. 0x18ed,0xa581,0x4af2,0x0b5b,0x1aa0,0x28cc,0xd99e,0x59e3,
  188. 0x38e3,0x87ad,0x8e28,0x5676,0x0892,0x1621,0x96af,0x3c7f,},
  189. /* -16 */
  190. {0x0000,0x3fcb,0x0000,0xe695,0x94be,0xc44d,0xe15b,0x4c2e,
  191. 0xbe68,0x7989,0xa9b3,0xbf71,0x6c1a,0xdd27,0xf085,0x23cc,
  192. 0xd348,0x4db6,0x70aa,0xd6e0,0x12cf,0x7fa7,0xcf42,0x8583,},
  193. /* -8 */
  194. {0x0000,0x3fe6,0x0000,0xabcc,0x7711,0x8461,0xcefc,0xfdc2,
  195. 0x0d2b,0x36ba,0x7c3d,0x3d4d,0x3d75,0x8161,0x697c,0x7068,
  196. 0xf3b4,0x6d2f,0x8350,0x5705,0x755f,0xd37a,0x3b04,0x8dd9,},
  197. /* -4 */
  198. {0x0000,0x3ff3,0x0000,0xd1b7,0x1758,0xe219,0x652b,0xd3c3,
  199. 0x6113,0x404e,0xa4a8,0xc154,0xc985,0xf06f,0x6944,0x6738,
  200. 0x1d7d,0xbf48,0x7fcb,0x923a,0x29c7,0x79a6,0xb50b,0x0f28,},
  201. /* -2 */
  202. {0x0000,0x3ffa,0x0000,0xa3d7,0x0a3d,0x70a3,0xd70a,0x3d70,
  203. 0xa3d7,0x0a3d,0x70a3,0xd70a,0x3d70,0xa3d7,0x0a3d,0x70a3,
  204. 0xd70a,0x3d70,0xa3d7,0x0a3d,0x70a3,0xd70a,0x3d70,0xa3d7,},
  205. /* -1 */
  206. {0x0000,0x3ffd,0x0000,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,
  207. 0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,
  208. 0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,0xcccc,0xcccd,},
  209. };
  210. #endif
  211. #endif /* WORDSIZE 16 */
  212.  
  213. #if WORDSIZE == 32
  214. #define NTEN 13
  215. #define MINNTEN -8192
  216. #define MAXNTEN 8192
  217.  
  218. #if NQ < 9
  219. #define NTT 8
  220. static QELT qtens[NTEN+1][NTT] = {
  221. /* 8192 */
  222. {0,EXPONE+0x6a4d,0,0x96a3a1d1,0x7faf211a,0x0c7c2892,0x305f4e12,0x072b0000,},
  223. /* 4096 */
  224. {0,EXPONE+0x3526,0,0xc4605202,0x8a20979a,0xc94c153f,0x804a4a92,0x65760000,},
  225. /* 2048 */
  226. {0,EXPONE+0x1a93,0,0x9e8b3b5d,0xc53d5de4,0xa74d28ce,0x329ace52,0x6a320000,},
  227. /* 1024 */
  228. {0,EXPONE+0x0d49,0,0xc9767586,0x81750c17,0x650d3d28,0xf18b50ce,0x526c0000,},
  229. /* 512 */
  230. {0,EXPONE+0x06a4,0,0xe319a0ae,0xa60e91c6,0xcc655c54,0xbc5058f8,0x9c660000,},
  231. /* 256 */
  232. {0,EXPONE+0x0352,0,0xaa7eebfb,0x9df9de8d,0xddbb901b,0x98feeab7,0x851e0000,},
  233. /* 128 */
  234. {0,EXPONE+0x01a9,0,0x93ba47c9,0x80e98cdf,0xc66f336c,0x36b10137,0x02350000,},
  235. /* 64 */
  236. {0,EXPONE+0x00d4,0,0xc2781f49,0xffcfa6d5,0x3cbf6b71,0xc76b25fb,0x50f80000,},
  237. /* 32 */
  238. {0,EXPONE+0x006a,0,0x9dc5ada8,0x2b70b59d,0xf0200000,0x00000000,0x00000000,},
  239. /* 16 */
  240. {0,EXPONE+0x0035,0,0x8e1bc9bf,0x04000000,0x00000000,0x00000000,0x00000000,},
  241. /* 8 */
  242. {0,EXPONE+0x001a,0,0xbebc2000,0x00000000,0x00000000,0x00000000,0x00000000,},
  243. /* 4 */
  244. {0,EXPONE+0x000d,0,0x9c400000,0x00000000,0x00000000,0x00000000,0x00000000,},
  245. /* 2 */
  246. {0,EXPONE+0x0006,0,0xc8000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  247. /* 1 */
  248. {0,EXPONE+0x0003,0,0xa0000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  249. };
  250.  
  251. static QELT qmtens[NTEN+1][NTT] = {
  252. /* -8192 */
  253. {0,EXPONE-27214,0,0xd986c20b,0x686da869,0x5d1d4fd8,0x5b05f4c2,0xeef20000,},
  254. /* -4096 */
  255. {0,EXPONE-13607,0,0xa6dd04c8,0xd2ce9fde,0x2de38123,0xa1c3cffc,0x20300000,},
  256. /* -2048 */
  257. {0,EXPONE-6804,0,0xceae534f,0x34362de4,0x492512d4,0xf2ead2cb,0x82640000,},
  258. /* -1024 */
  259. {0,EXPONE-3402,0,0xa2a682a5,0xda57c0bd,0x87a60158,0x6bd3f698,0xf53f0000,},
  260. /* -512 */
  261. {0,EXPONE-1701,0,0x9049ee32,0xdb23d21c,0x7132d332,0xe3f204d4,0xe7310000,},
  262. /* -256 */
  263. {0,EXPONE-851,0,0xc0314325,0x637a1939,0xfa911155,0xfefb5308,0xa23e0000,},
  264. /* -128 */
  265. {0,EXPONE-426,0,0xddd0467c,0x64bce4a0,0xac7cb3f6,0xd05ddbde,0xe26d0000,},
  266. /* -64 */
  267. {0,EXPONE-213,0,0xa87fea27,0xa539e9a5,0x3f2398d7,0x47b36224,0x2a200000,},
  268. /* -32 */
  269. {0,EXPONE-107,0,0xcfb11ead,0x453994ba,0x67de18ed,0xa5814af2,0x0b5b0000,},
  270. /* -16 */
  271. {0,EXPONE-54,0,0xe69594be,0xc44de15b,0x4c2ebe68,0x7989a9b3,0xbf710000,},
  272. /* -8 */
  273. {0,EXPONE-27,0,0xabcc7711,0x8461cefc,0xfdc20d2b,0x36ba7c3d,0x3d4d0000,},
  274. /* -4 */
  275. {0,EXPONE-14,0,0xd1b71758,0xe219652b,0xd3c36113,0x404ea4a8,0xc1550000,},
  276. /* -2 */
  277. {0,EXPONE-7,0,0xa3d70a3d,0x70a3d70a,0x3d70a3d7,0x0a3d70a3,0xd70a0000,},
  278. /* -1 */
  279. {0,EXPONE-4,0,0xcccccccc,0xcccccccc,0xcccccccc,0xcccccccc,0xcccd0000,},
  280. };
  281.  
  282. #else
  283.  
  284. #define NTT 14
  285. static QELT qtens[NTEN+1][NTT] = {
  286. /* 8192 */
  287. {0,EXPONE+0x6a4d,0,0x96a3a1d1,0x7faf211a,0x0c7c2892,0x305f4e12,0x072b211a,
  288. 0xceb5055e,0x412e0901,0xa7bb6c7d,0x98ab274a,0x132284c8,0x0c3f7747,},
  289. /* 4096 */
  290. {0,EXPONE+0x3526,0,0xc4605202,0x8a20979a,0xc94c153f,0x804a4a92,0x65761fb2,
  291. 0x444e2267,0xdd5cf7c9,0x45f22a3f,0xfff0d1d2,0xe18469b1,0xea38aac8,},
  292. /* 2048 */
  293. {0,EXPONE+0x1a93,0,0x9e8b3b5d,0xc53d5de4,0xa74d28ce,0x329ace52,0x6a3197bb,
  294. 0xebe3034f,0x77154ce2,0xbcba1964,0x8b21c11e,0xb962b1b6,0x1b93cf2f,},
  295. /* 1024 */
  296. {0,EXPONE+0x0d49,0,0xc9767586,0x81750c17,0x650d3d28,0xf18b50ce,0x526b9882,
  297. 0x75249b0f,0xd6f4b6d2,0x7bd1c61c,0x253069a5,0xc329f9af,0x4a9cf155,},
  298. /* 512 */
  299. {0,EXPONE+0x06a4,0,0xe319a0ae,0xa60e91c6,0xcc655c54,0xbc5058f8,0x9c658398,
  300. 0x1d134cba,0x422d38ea,0x3584cde4,0x0b9a1d7d,0x634df2d8,0x74a24bbb,},
  301. /* 256 */
  302. {0,EXPONE+0x0352,0,0xaa7eebfb,0x9df9de8d,0xddbb901b,0x98feeab7,0x851e4cbf,
  303. 0x3de2f98a,0xae780c7f,0xea81c788,0x5a6b43a2,0xa6c495b8,0xccd604d6,},
  304. /* 128 */
  305. {0,EXPONE+0x01a9,0,0x93ba47c9,0x80e98cdf,0xc66f336c,0x36b10137,0x0234f3fd,
  306. 0x7b08dd39,0x0bc3c54e,0x3f40f7e6,0x424ba54f,0x80400000,0x00000000,},
  307. /* 64 */
  308. {0,EXPONE+0x00d4,0,0xc2781f49,0xffcfa6d5,0x3cbf6b71,0xc76b25fb,0x50f80800,
  309. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  310. /* 32 */
  311. {0,EXPONE+0x006a,0,0x9dc5ada8,0x2b70b59d,0xf0200000,0x00000000,0x00000000,
  312. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  313. /* 16 */
  314. {0,EXPONE+0x0035,0,0x8e1bc9bf,0x04000000,0x00000000,0x00000000,0x00000000,
  315. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  316. /* 8 */
  317. {0,EXPONE+0x001a,0,0xbebc2000,0x00000000,0x00000000,0x00000000,0x00000000,
  318. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  319. /* 4 */
  320. {0,EXPONE+0x000d,0,0x9c400000,0x00000000,0x00000000,0x00000000,0x00000000,
  321. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  322. /* 2 */
  323. {0,EXPONE+0x0006,0,0xc8000000,0x00000000,0x00000000,0x00000000,0x00000000,
  324. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  325. /* 1 */
  326. {0,EXPONE+0x0003,0,0xa0000000,0x00000000,0x00000000,0x00000000,0x00000000,
  327. 0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,0x00000000,},
  328. };
  329.  
  330. static QELT qmtens[NTEN+1][NTT] = {
  331. /* -8192 */
  332. {0,EXPONE-27214,0,0xd986c20b,0x686da869,0x5d1d4fd8,0x5b05f4c2,0xeef18384,
  333. 0x9aee88f7,0x6e7ad89a,0x55416d56,0x35482430,0x2cb9572c,0x4628bee8,},
  334. /* -4096 */
  335. {0,EXPONE-13607,0,0xa6dd04c8,0xd2ce9fde,0x2de38123,0xa1c3cffc,0x20305d02,
  336. 0x44e091ba,0x5e2d7403,0x972f6f2b,0x04e663ac,0x16d51215,0x98342658,},
  337. /* -2048 */
  338. {0,EXPONE-6804,0,0xceae534f,0x34362de4,0x492512d4,0xf2ead2cb,0x8263ca5c,
  339. 0xbc774bd9,0x71aad590,0x46c74249,0xddddc0df,0xbb0d6f2c,0x0583c8fe,},
  340. /* -1024 */
  341. {0,EXPONE-3402,0,0xa2a682a5,0xda57c0bd,0x87a60158,0x6bd3f698,0xf53e94d1,
  342. 0xb2357c32,0xc0eaff37,0x55a2ddcd,0x5191a70f,0x9e339aa9,0x62702808,},
  343. /* -512 */
  344. {0,EXPONE-1701,0,0x9049ee32,0xdb23d21c,0x7132d332,0xe3f204d4,0xe7317d62,
  345. 0x209b6a93,0xd4c94a9d,0xa0693e0c,0xfefde89b,0x01e51068,0xe0e47573,},
  346. /* -256 */
  347. {0,EXPONE-851,0,0xc0314325,0x637a1939,0xfa911155,0xfefb5308,0xa23e2ed2,
  348. 0x7766e8cc,0x9b035377,0x08b1648f,0x7a730e52,0xe6e74360,0x55f3dff4,},
  349. /* -128 */
  350. {0,EXPONE-426,0,0xddd0467c,0x64bce4a0,0xac7cb3f6,0xd05ddbde,0xe26ca606,
  351. 0x3461fffa,0x4ed775fc,0x49f27952,0xf2f3a45f,0x9009f3c9,0xee49e1c1,},
  352. /* -64 */
  353. {0,EXPONE-213,0,0xa87fea27,0xa539e9a5,0x3f2398d7,0x47b36224,0x2a1fee40,
  354. 0xd90aab31,0x0e128b5d,0x938cfb3f,0x6f203147,0x025d1129,0xe4926e2d,},
  355. /* -32 */
  356. {0,EXPONE-107,0,0xcfb11ead,0x453994ba,0x67de18ed,0xa5814af2,0x0b5b1aa0,
  357. 0x28ccd99e,0x59e338e3,0x87ad8e28,0x56760892,0x162196af,0x3c7ede80,},
  358. /* -16 */
  359. {0,EXPONE-54,0,0xe69594be,0xc44de15b,0x4c2ebe68,0x7989a9b3,0xbf716c1a,
  360. 0xdd27f085,0x23ccd348,0x4db670aa,0xd6e012cf,0x7fa7cf42,0x858294ca,},
  361. /* -8 */
  362. {0,EXPONE-27,0,0xabcc7711,0x8461cefc,0xfdc20d2b,0x36ba7c3d,0x3d4d3d75,
  363. 0x8161697c,0x7068f3b4,0x6d2f8350,0x5705755f,0xd37a3b04,0x8dd94704,},
  364. /* -4 */
  365. {0,EXPONE-14,0,0xd1b71758,0xe219652b,0xd3c36113,0x404ea4a8,0xc154c985,
  366. 0xf06f6944,0x67381d7d,0xbf487fcb,0x923a29c7,0x79a6b50b,0x0f27bb30,},
  367. /* -2 */
  368. {0,EXPONE-7,0,0xa3d70a3d,0x70a3d70a,0x3d70a3d7,0x0a3d70a3,0xd70a3d70,
  369. 0xa3d70a3d,0x70a3d70a,0x3d70a3d7,0x0a3d70a3,0xd70a3d70,0xa3d70a3d,},
  370. /* -1 */
  371. {0,EXPONE-4,0,0xcccccccc,0xcccccccc,0xcccccccc,0xcccccccc,0xcccccccc,
  372. 0xcccccccc,0xcccccccc,0xcccccccc,0xcccccccc,0xcccccccc,0xcccccccd,},
  373. };
  374. #endif
  375. #endif
  376.